home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-PPC / Examples folder / Macro Source / Summary Stats < prev    next >
Encoding:
Text File  |  1989-07-24  |  1.8 KB  |  203 lines  |  [TEXT/QKPT]
  1. FIX 4
  2. CM
  3. size
  4. STO 99
  5. const     1.000000000e+00
  6. x<>y
  7. x <= y
  8. STOP
  9. RCL 99
  10. STO 00
  11.  
  12. alpha     "count the # of pts"
  13. LBL 20
  14. RCLi 01
  15. test 1
  16. GTO 21
  17. test 2
  18. GTO 21
  19. const     1.000000000e+00
  20. ADD 98
  21.  
  22. LBL 21
  23. const     1.000000000e+00
  24. ADD 01
  25. const     0.000000000e+00
  26. DSE 00
  27. GTO 20
  28.  
  29. RCL 98
  30. const     1.000000000e+00
  31. x > y
  32. STOP
  33.  
  34. RCL 99
  35. STO 00
  36. const     0.000000000e+00
  37. STO 01
  38.  
  39. LBL 00
  40. RCLi 01
  41. test 1
  42. GTO 23
  43. test 2
  44. GTO 23
  45. ADD 02
  46.  
  47. LBL 23
  48. const     1.000000000e+00
  49. ADD 01
  50. const     0.000000000e+00
  51. DSE 00
  52. GTO 00
  53.  
  54. RCL 02
  55. RCL 98
  56.  /
  57. STO 08
  58. RCL 99
  59. STO 00
  60. const     0.000000000e+00
  61. STO 01
  62. STO 03
  63. STO 18
  64. LBL 01
  65. RCLi 01
  66. test 1
  67. GTO 24
  68. test 2
  69. GTO 24
  70. RCL 08
  71.  -
  72. abs
  73. ADD 18
  74. x^2
  75. ADD 03
  76.  
  77. LBL 24
  78. const     1.000000000e+00
  79. ADD 01
  80. const     0.000000000e+00
  81. DSE 00
  82. GTO 01
  83.  
  84. RCL 98
  85. const     1.000000000e+00
  86.  -
  87. 1/x
  88. Enter
  89. RCL 03
  90.  *
  91. sqrt
  92. STO 80
  93.  
  94.  
  95. RCL 99
  96. const     1.000000000e+00
  97.  -
  98. STO 97
  99. alpha     "Now compute the min/max/mean"
  100. const     0.000000000e+00
  101. STO 00
  102. STO 20
  103. const     9.999999945e+32
  104. STO 01
  105. const     -9.999999945e+32
  106. STO 02
  107.  
  108. const     0.000000000e+00
  109. STO 10
  110. LBL 30
  111. RCLi 10
  112. test 1
  113. GTO 31
  114. test 2
  115. GTO 31
  116. STO 19
  117. alpha     "passed, found a data pt"
  118. alpha     "sum to mean"
  119. ADD 00
  120. x^2
  121. ADD 20
  122.  
  123. alpha     "test for min"
  124. RCL 01
  125. RCL 19
  126. x <= y
  127. STO 01
  128.  
  129. alpha     "test for max"
  130. RCL 02
  131. RCL 19
  132. x > y
  133. STO 02
  134.  
  135. LBL 31
  136. RCL 97
  137. ISG 10
  138. GTO 30
  139.  
  140. RCL 00
  141. STO 12
  142. RCL 98
  143. STO 13
  144.  /
  145. STO 11
  146.  
  147. RCL 01
  148. STO 00
  149. alpha     "Minimum ="
  150. STOa 0
  151.  
  152. RCL 02
  153. STO 01
  154. alpha     "Maximum ="
  155. STOa 1
  156.  
  157. RCL 12
  158. STO 02
  159. alpha     "Sum ="
  160. STOa 2
  161.  
  162. RCL 13
  163. STO 03
  164. alpha     "Points ="
  165. STOa 3
  166.  
  167. RCL 11
  168. STO 04
  169. alpha     "Mean ="
  170. STOa 4
  171.  
  172. RCL 20
  173. RCL 13
  174.  /
  175. sqrt
  176. STO 05
  177. alpha     "Root Mean Square ="
  178. STOa 5
  179.  
  180. RCL 80
  181. STO 06
  182. alpha     "Std. Deviation ="
  183. STOa 6
  184.  
  185. RCL 18
  186. RCL 13
  187.  /
  188. STO 07
  189. alpha     "Mean Deviation ="
  190. STOa 7
  191.  
  192. RCL 80
  193. RCL 13
  194. sqrt
  195.  /
  196. STO 08
  197. alpha     "Standard Error ="
  198. STOa 8
  199.  
  200. alpha     "Summary Statistics:"
  201. view 9
  202. STOP
  203.